home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / FarmCat.Dxr / 00003.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  738 b   |  20 lines
  1. on mouseDown
  2.   global follow, homeV, homeH, lastClickOn
  3.   set lastClickOn to the clickOn
  4.   set the visible of sprite lastClickOn to 0
  5.   set homeV to the locV of sprite lastClickOn
  6.   set homeH to the locH of sprite lastClickOn
  7.   set the castNum of sprite (lastClickOn + 5) to the castNum of sprite lastClickOn
  8.   set lastClickOn to lastClickOn + 5
  9.   set the visible of sprite lastClickOn to 1
  10.   set follow to 1
  11.   puppetSprite(lastClickOn, 1)
  12.   set the castNum of sprite lastClickOn to the castNum of sprite lastClickOn + 10
  13.   puppetSound("WaDing!.S")
  14.   updateStage()
  15.   set the castNum of sprite lastClickOn to the castNum of sprite lastClickOn
  16.   put the puppet of sprite lastClickOn
  17.   put the castNum of sprite lastClickOn
  18.   continue()
  19. end
  20.